• 

• 

h 

m 



10 

12 
13 

IS 
16 

18 

19 

21 

22 
I 23 

24 

25 
I 26 

27 

28 

I »• 
30 

31 ~ 

I »:■ 

33 
34 

I 35 
36 

37 ~ 
38 
39 
40 
41 
42 

43 ~ 
44 
45 
46 
•7 

ts 

49 "^ 
50 



LABEL 0OO0O0000PRINTERO01/51O0CC tX Ob JtC T /REAU; F ILE bOURCEF lLE*SYMBOL/DSrvDSK«-«-0000000 flBjECT /REaU 



Sy/Hi^OL/ DS)c D S);^ 



-•I 

|4;ji 






h 



6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 



'9 

20 



21 



24 

25 



26 

27 



29 

30 



. J2 
33 

34 

35 

36 

37" 

38 



«0 

I «1 
42 



<6 

I 47 

•8 

49 

I 50 



S2 
53 



S4 

55 



DISK-TO-DISK MCP LUaDEHJ BY W.CtH. AS AMMENDEO BY P.t.G. 
CQMMENTl * title: B5500/Bb700 MAKk XIV SYSTEM KELEASE 
* FIUF TDi SYMBni./nSKnSK TAPE Ttli SYM HUL 2 /F ILEO OQ . 



OOOiiOOOO 
OUOiiOlOO 
Q0P201C1 



* THIS MATERIAL IS PROPRIETARY TO 8URK0UGHS CORPORATION * 00020102 

* AND IS NOT TO BE REPROUUcED* USED* OR DISCLOSED * 00020103 

* F^nEPT IM ArrnRPAMCE ^nn prhgham i It:^■^^5tF nw mphm * nlyoi>n\r\^ 



* WRITTEN AUlHORlZAriUN UF Tht PATENT DIVISION OF 

* BURROUGHS CORPORATION^ UETHGI r* MICHIGAN 48232 

* 



* 
* 



MMU 



COPYRIGHT 
AA329206 



(C) t97l> 1972 
AA38665/ 



00020105 
00020106 
Q00201Q7 



BURROUGHS CORPORATION 



* 



DEFINE MsMEMQRYI>P5P0LISH#> 

NAME BUFFER#rEMMP; 

LARFL l,nAn>l.nnPt.START.i]^T? 



00020108 
00020109 

ofioaoooQ 



INTEGER I# J* K» FILER ASE* DIRECT LOCK* uOAOtO' FOUND i 
ARRAY MESSCl63«-0#0''' NOT IN "*''0IRECT0R''*»'Y*000C00'% 



00040000 
00050000 

nooftoono 



00070000 
00080000 
0OQ90QQQ 



ARRAY, 



"BAD LOAD"V 
"WHAT MCP'S' 



CHECK O'V"ECK«-00O0"* 
DO YUu "^'-WiSH^-oOO'V; 



OOiOOOOO 
OOUOOOO 
Q012 0Q 0Q 



acT04ai000<»0ib/042l» XI 20 
OCT0157000000104411JI » 2 21 

ncropi iOQia4iiiQQ55» i ^ ?? 



00130000 
00140000 
QQ15Q00Q 



0CT41551245000U4425» % H 23 
UCT006001 jiUl60006»i* * 5 24 
0CT4a4 l i naH25 3 () 3 f i 5y ^ 6 2ix- 



0CT0l0002344l3l0055» X 7 26 
nCTQ06«iOu44l3i005t)' % Q 27 

ncTQn66Ui344i3tnn'>^/ x 9 liL 



0016000O 
00170000 

noidoooo 



00190000 
00200000 

002 ion no 



0CT007i!0i544i3l0055' % 10 31 

OCT0076Ui7t4l3l005i3* % 11 32 

nc.Tjid00onu4y7oo9 0G> st i ? :^i 



00220000 
00ii30000 
QQ24Q0Q0 



aCT044U004Ul00444l* % 13 34 

0CTO253yi04205274O5' t 14 35 

ocT76Q'i<Jn'iioinns<iii# % i'^ ^^ 



00250000 
00260000 
nnyyonnn 



O'O'O'O'O^ 



% 16 



37 - 43 



% 
X 



SAVE INTEGER PROCEDURE RESUlT; 

BEGIN DO PClNl) UNTIL FALSE 



00200000 

00290000 
QOjgQOQQ 



end; 



SAVE Integer procedure iq(D); value d; real u; 

BEGIN PCtOJMlU); ia«-H£SULr .t23Ja]^ lUDi 



00310000 
00320000 
Q Q3iQQQQ 



SAVE PROCEDURE SPOUt(X); VALUE X* INTEGER x; 

BEGIN MESSCC3*FlAG(NABS(mES5cO J))i 
^ MESSfl]«.rLAR(M£SSf 13& 17 rn 43153 3f 



00340000 
00350000 
0J6QQ Q0 



END 



DO UNTIL 

spout; 



IOCMESS INX A&3013J43J53 ;sO 



00370000 
00380000 
00390000 



SAVE PROCEDURE FInDINPUT; 

eeaiN 

DQ^'UNTlLnQCg24Ol2Q04OO00O00&(BUFF£R3C33;33ll53)AND 5)»QJ 



00400000 
00410000 
QQ4kiO0Qq 



end; 



SAVE PROCEDURE DISK 10 f 



00430000 
00440Q00 
ft045 0QQQ 



SIZE^APRES); 



00460000 
00470000 

oo4dOooo 



VALUE 

.::»*£ G.ER 



mtrnmsmA 



00<»90000 
00^00000 

Qoa 10.000 



r-'V 



52 
53 



>T 



1 

2 
3 
4 
5 
6 
7 
S 
9 
10 
11 
12 



13 
14 
IS 



16 
17 



IS 
20 
21 



22 
23 
24 



25 
26 



27 
28 
29 



30 



31 
32 
33 
34 
3S 



36 



37 
38 
39 



I 41 
42 
♦3' 

I «4 

te 

46 



48 



49 
50 



S4 

55 



LABEL hAiMOLL. 
AREA*f3UFFt.F^,C33: lb3&6L JJ43;5]ii 



SULCa^: 1: U 



OOtJciOOOO 
00530000 
0: 340 00 



LL. 



HANDEL' 



STREAMCADHES#BUFF£R); SEGlN Sl«-LOC AORES; DS<-8 DEC END* OObbOOOQ 

FOR K*-! STEP 1 UNTIL lO 00 OOiJbOOOO 

TF(T«-TnCAREA) JaQ ThFfN PfXTTH 00570000 



IF ADRES<0 
IF (I AND 
IF f T A ^ n 



ANO aUL = AWU l = ^iO 
^2'i')) ' Thk-N lid IQ 
eO J O) /^ Thb .NI i NV l) 



T n t IM P ( X IT ; ; % 

HAi\UEL; 



SLUA DIbK 



00b('500G 
OObtiOOOO 
OO^VOOOd 



BEGIN 



fn D; 



ACRES ;=s ABSCADKES); 
GO TO HANDEL/ 



00600000 
00610000 



MESStdlfMLAREAU; 

IF AflLA.[<i^; 1 J ThLiM M 1 55 [ b J . L iO : 6 J «-"K" 

STRFAM(N4-ClxIxIxf.-lOOJ0UOOOOGU(J).l. j:6]. 



m*-cmESsc7j j); 



OOCJJOOOG 
006400CU 
OObbOOOC 



BEGIN SI«-LOC 
SP0UTC5)) DO 



hi aI*-Sl*o; Dl«-ui + i; 
UNTIL FAtiiE; 



DS4-2 ADD end; 



-EMQS. 



SAVE INTEGER 

eEGli\; 
STREAM 



OO60OOOO 
006^0000 

OQisaoooo 



PROCEDURE packer; 

CAi SCBUFFtKfqJ lfB? = t.PacKErtlj; 



OOOvOOOO 
OO/UOOOC 

nnn,OGOc 



BEGIN SI »a a; 

D I s * B ; 

. 4(.SKIP 3 S 



SI !=» Si + m 

01 J= ni + 6; 

; uiF SB Then 



007H0000 

00730000 

DStsSET £1 S£ SKIP DB;SKIP SB) J >0Q /"tfOOOO 



end; 



end; 



save procedure loader; 

BEGIN LABEL TQPPEH; 

-^ — TF I fiAnpn THFM HFuiN sPn^fTf1n^; 



OOi'iOOOO 

OO/bOOOO 

- OQ/^JQOu 



nu iJNTTi falsf; end; 



00/'80000 

00790000 
noHonnnn 



topper: STREAf'CB S s[ BUFFER L 13 J ' A : =BuFFERC 9 J , [ 6 : 9 3 , 

0«-PACKtF< INX BUFFER); 
: HFGTN aj. tdi OS ♦• A wnS« ENU; 



ooaioooo 

OOQ^OOOO 

ootijQnno 



FiNDiNPUT' 

IF BUFFERtOl.t'iJAaJsO THEN 

TFMMP tr HMfFFR; 



GO TO tupper; 



ooa40ooo 

OOBbOOOO 

noflbonnn 



BUFFER 
LCADEU 
DISKIQ ( 



= ill INX 

= true; 
3u*i ); 



buffer; 



00B70000 
OOdoOOOO 

ooavuooo 



end; 



BUFFER :* T£MMP; 



REAL RDlsl2,RD2 = U>RD3 = l4,KD4sl3; 
SAVE PRUCFDURE 5TA CK; B EG IN>E NO; 



00900000 
00910000 
00920000 



00930000 
00940000 
009b0000 



LOAD: 16: 
LOUP 11 a: 



GO 



start; 

PC INI? 



UNTIL FAL S E R 






TIMER 



« i P(1023^KTN); 
: « GO loop; 
J : GO loop; 



009600G0 
00970000 
QO99QQ00 



I/Q 
KBD 
LPA 



BUSY 



J I GO loop; 

» J PCR01*RTN); 
I : PCRDP.RTN); 



% 

% 



00990000 

oiuuoooo 

OI OIO QO Q 



LPB 
I/O 

JLZIL 



: I P{RD3»RTN); 
: : P(RD4#RTN); 
:?fl: fiO loop; 



% 



start:*: P(.STACKi.L00»STS); 
BUFrER»[MtP(0*ROS) 

finqinput; 



I/O 
I/Q 



01020000 
01030000 
01040000 



OlObOOOO 
01060000 
0)0<'0Q0Q 



lun 100]]; 



OlObOOOO 
01090000 

OU 00000 



p.. 



pV 



>r 



I 2 
3 

4 

I 6 
6 
7 

I 8 
9 
10 

I 11 
12 
13 
14 
15 
16 
17 
18 



19 

I 20 

21 

22 



\ 23 

24 

25 
( 2< 

27 

28 

I » 

30 

31 

I « 

33 

34 

I 35 
36 
37 ~ 

I M 
39 

40 

I «1 
42 
43 



45 
46 



cn 



•8 
49 I 

I 50 : 

Bl.i 

a 
a 

54 

55 ;': 
I 56 .. 



-OJslL 



IF BUFFtR[0],[4:^4] 
MESS[0]«-MtSSCi]«-0; 
STRFAM fA«-1.HlJFrrft«M£aS^; 



THF.N loader; 



AQNI 



SI 
01 



*- BUFFERi 

<■ Di + i; 

fTF SO B 



oinoocc 

011.20000 
OIUQQQQ 



IF SC = "/" IhEN 31 

(IF SC =" " ThEN DS«- 

IF SC :="/'* Th&N ntif 



THEN ai t* Sr 4 1 ELSE 



01 1^0000 
OllSOOOO 

niiftoono 



CI ♦ ci * a; 

GD TU LVE/ 
TAU Y t-Ol 



J=s 51 + i ELSE JUMP CUT); 01170000 
LIT" " ELSE OlldOOOO 

LIT" " f^iSE oSfCHRH ouvoonn 



A «■ tally; 

SI <• Si +l; 

GO Tn ACiNJ 



01200000 
01210000 

ni22Qonn 



LVE» end; 

oiSKioci^O); 

DISKTHf n.nTwrCTi nric 



0123000C 
01240000 

ni2'jnooo 



la» (bUF rf:Rt3T*?)^i 



FOB J > BUFFERt2] + n 
BEGIN DlSKICC-16*Jj; 
FOR I Is n STEP g UNTIL 26 1)0 



STEP 16 WHILE TRUE DO 



11 nr.k ni RFCfnRv 



01260000 

oi'iroooo 

nt2Rnnnn 



01290000 
01300000 

m jionnc 



BEGIN IF (BUFFERU?9-1J E«V PtH) a NOT THEN 01320000 
BEGIN DiSKlOCCOiKECTLOCK); S^OUTCO); 60 START EnDI 0l33oo00 
TF f HtirKFRray9-T3rQv McSs^n^^^»^nT n ruftd nta^onnn 



IF CdUFFtRC^aa-I JLC3V 

end; end; 

F[ l, FBASF«-Bl .i FFERr . < i 3l"Ix ii j 3 ; 



MESSCII )'5NUT THEN GU CjWt; 



nlSKiacO^DlRFCTLOCK); 

spouT(«»iooocnin; 

HuFFFRfin «■ S tin; 



% UNLUGK OlHEeTDHY 

% CAHHAGt RETUR.N 

% FTKD nut WHfi T AM 



0l3i)000Q 

1 3 U C] 
Ul,3^0jOC 



BUFFER cn s= o; 

J «■ 10 CB0FFtR.C33: l5J(i6[3Ja3:bJ& 
J *■ HI]FFFRLl1.i;4;<^]? 



01380000 
01390000 

Qlftu onnii 



1 [ 1 6 : 4 7 s i ] ) 



J «■ 13 +( Jx5); 

oiskioc-i*-0); «lock 

BUFFERrJ] 4.FTLEBASEi 



OHaOOOC 

014^:0000 



SEG ZERO 



STrEAM(MESS,0 5=CBUFFFiUJ-2JJ ); 

BEGIN Sl;=KESS> 2CSl :=Sl+l>USl=Ll r"0";^i:=7 

OISKIO(1#-0); ^unluck a£r, zlrh 



01440000 
OHiOOOO 



ChR) EKO; 



MESS[2]*FLA6CNABS("L0AD£D«-")); 

SPOUTCO); 

STREAM(LQADBljTTQN*n<-16); 



0l4/'0000 

01460000 
1 4 V 



BEGIN SULOADBUTTUivi; 0S«-20 rtpS EiNq; 

pcojStf); 

P(OfSTS); GC luao; 



OlbOOOOO 

oitnoooo 

01^20000 



ENO or LOADER, 
E PASSTYPE(ELBATWORD); 
00000000000 00COO)x^A42/X 



0lb3000u 
Olb^OOOO 
OlbbOOOO 



END 



01560000 
15014000 T 093 7 

clsmpmn; 



i2a 

.'.3 



%7 ' 
18 

■I'J 

b I 
52 
■)3 
5-1 



h- 



LABEL O000O000OpRlNTt:H00l/5l00CC LX Uo Jfc.C T / hE aU ; F I LE SUUHCEP I LEsiJ YMBUu/DSkUSK*-<-0U00OOO 



OBJECT /READ 



SMM^MK^SK 



to 

12 
13 

IS 
16 

IS 
19 

^ 20 
21 
22 

^ 23 
24 
25 

1^ 26 
27 
28 ~ 

30 

31^ 

S 34 

Ia 35 
Q 36 

I "~ 

Jii 38 



ifl 




